home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / GETLEFT.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  692 b   |  23 lines
  1. ' GETLEFT.BAS
  2. ' This program demonstrates the LEFT$ function.
  3.  
  4. CLS
  5.  
  6. alphabet$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   ' declare test string
  7.  
  8. PRINT "How many characters (from left to right) in the following"
  9. PRINT "string would you like to display?"
  10. PRINT
  11. PRINT alphabet$                            ' display test string
  12. PRINT
  13.  
  14.     ' get from user number of leftmost characters to be displayed
  15. DO  ' loop until number is in proper range (1 through 26)
  16.     INPUT "    Number (1-26):  ", leftNum%
  17. LOOP WHILE (leftNum% < 1) OR (leftNum% > 26)
  18.  
  19. PRINT
  20. leftChar$ = LEFT$(alphabet$, leftNum%)     ' display characters
  21. PRINT "You specified"; LEN(leftChar$); "characters:  "; leftChar$
  22.  
  23.